home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / succdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  446 b   |  23 lines
  1. program SuccDemo;
  2.  
  3. type
  4.   Metasyntactical = (foo, bar, baz);
  5.  
  6. var
  7.   m: Metasyntactical;
  8.   c: Char;
  9.   a: array [1 .. 7] of Integer;
  10.   p: ^Integer;
  11.  
  12. begin
  13.   m := Succ (foo);     { bar }
  14.   c := Succ ('A', 4);  { 'E' }
  15.   a [1] := 42;
  16.   a [2] := Succ (a [1]);     { 43 }
  17.   a [5] := Succ (a [2], 7);  { 50 }
  18.   {$X+}
  19.   p := @a [1];
  20.   p := Succ (p);     { points to `a [2]' now }
  21.   p := Succ (p, 3);  { points to `a [5]' now }
  22. end.
  23.